home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / ElectricAlias / Aliases / aliases.Tcl < prev    next >
Text File  |  1994-06-18  |  2KB  |  46 lines
  1. # FILE: aliases.Tcl
  2. #
  3. # LAST UPDATE: 01/08/93 8:00:35 AM
  4. #
  5. #    Aliases for TCL mode
  6.  
  7.     electricAlias-def ÑTcl ÑTcl ÑTcl
  8.     electricAlias-var Tcl bb "\{"
  9.     electricAlias-var Tcl eb "\}"
  10.     electricAlias-var Tcl bc "#"
  11.     electricAlias-var Tcl ec ""
  12.     electricAlias-var Tcl sep "#############################################################################\r"
  13.     electricAlias-def Tcl ñ "ñ\{Ñ\}"
  14.     electricAlias-def ÑTcl proc    "ñ╟askalias {procedure name} NAME╚proc ñ{NAME} \{Ñ\} \{\r\tÑ\r\}\rñ{bc}endproc ñ{NAME}ñ{ec}\rñ{bc}ñ{sep}ñ{ec}\rÑ"
  15.     electricAlias-def ÑTcl foreach "foreach \{Ñ\} \{Ñ\} \{\r\tÑ\r\}\rñ{bc}endforeachÑ"
  16.     electricAlias-def ÑTcl for     "for \{Ñ\} \{Ñ\} \{Ñ\} \{\r\tÑ\r\}\rñ{bc}endforÑ"
  17.     electricAlias-def ÑTcl while   "while \{Ñ\} \{\r\tÑ\r\}\rñ{bc}endwhileÑ"
  18.     electricAlias-def ÑTcl if      "if \{Ñ\} \{\r\tÑ\r\}Ñ"
  19.     electricAlias-def ÑTcl else    "\b\} else \{\rÑ"
  20.     electricAlias-def ÑTcl elseif  "\b\} else \{ if \{Ñ\} \{\rÑ\r\b\}"
  21.     electricAlias-def ÑTcl case    "case \{Ñ\} \{\r  Ñ\r\}\rñ{bc}endcaseÑ"
  22.     electricAlias-def ÑTcl "{"     "\{Ñ\} \{\r\tÑ\r\}\rñ{bc}endcase Ñ\rÑ"
  23.     electricAlias-def ÑTcl default "default \{\r\tÑ\r\}Ñ"
  24.  
  25.     # Following are for lazy/forgetful programmer's
  26.     electricAlias-def ÑTcl switch  "case \{Ñ\} \{\r\tÑ\r\}Ñ"
  27.     electricAlias-def Tcl ea "electricAlias"
  28.     electricAlias-def Tcl sprintf "format"
  29.  
  30.     electricAlias-def Tcl \$` "ñ \b╟Ñ╚Ñ"
  31.     electricAlias-def Tcl \${ "ñ \b{Ñ}Ñ"
  32.     electricAlias-def Tcl \$? "ñ \b╟askalias ÑPROMPT VARNAME╚Ñ"
  33.  
  34.     electricAlias-def Tcl "=" "=="
  35.     electricAlias-def Tcl backwordWord backwardWord
  36.  
  37.  
  38.     electricAlias-def "Ñ" "Ñfile" {# FILE: ñ{file}
  39. #
  40. # LAST UPDATE: ñ╟mtime [now] short╚
  41. #}
  42.     electricAlias-def "Ñ" "Ñprocs" {# This file contains the following TCL procedure(s):
  43. #
  44. #    ñ╟askalias "TCL Proc" proc╚ñ{proc} -- 
  45. }
  46.